3.4.6 \(\int \frac {x^4 (d+e x)}{(a^2-c^2 x^2)^2} \, dx\) [306]

Optimal. Leaf size=94 \[ \frac {3 d x}{2 c^4}+\frac {e x^2}{c^4}+\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}+\frac {a (3 c d+4 a e) \log (a-c x)}{4 c^6}-\frac {a (3 c d-4 a e) \log (a+c x)}{4 c^6} \]

[Out]

3/2*d*x/c^4+e*x^2/c^4+1/2*x^3*(e*x+d)/c^2/(-c^2*x^2+a^2)+1/4*a*(4*a*e+3*c*d)*ln(-c*x+a)/c^6-1/4*a*(-4*a*e+3*c*
d)*ln(c*x+a)/c^6

________________________________________________________________________________________

Rubi [A]
time = 0.07, antiderivative size = 94, normalized size of antiderivative = 1.00, number of steps used = 6, number of rules used = 4, integrand size = 23, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.174, Rules used = {833, 815, 647, 31} \begin {gather*} \frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}+\frac {a (4 a e+3 c d) \log (a-c x)}{4 c^6}-\frac {a (3 c d-4 a e) \log (a+c x)}{4 c^6}+\frac {3 d x}{2 c^4}+\frac {e x^2}{c^4} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(x^4*(d + e*x))/(a^2 - c^2*x^2)^2,x]

[Out]

(3*d*x)/(2*c^4) + (e*x^2)/c^4 + (x^3*(d + e*x))/(2*c^2*(a^2 - c^2*x^2)) + (a*(3*c*d + 4*a*e)*Log[a - c*x])/(4*
c^6) - (a*(3*c*d - 4*a*e)*Log[a + c*x])/(4*c^6)

Rule 31

Int[((a_) + (b_.)*(x_))^(-1), x_Symbol] :> Simp[Log[RemoveContent[a + b*x, x]]/b, x] /; FreeQ[{a, b}, x]

Rule 647

Int[((d_) + (e_.)*(x_))/((a_) + (c_.)*(x_)^2), x_Symbol] :> With[{q = Rt[(-a)*c, 2]}, Dist[e/2 + c*(d/(2*q)),
Int[1/(-q + c*x), x], x] + Dist[e/2 - c*(d/(2*q)), Int[1/(q + c*x), x], x]] /; FreeQ[{a, c, d, e}, x] && NiceS
qrtQ[(-a)*c]

Rule 815

Int[(((d_.) + (e_.)*(x_))^(m_)*((f_.) + (g_.)*(x_)))/((a_) + (c_.)*(x_)^2), x_Symbol] :> Int[ExpandIntegrand[(
d + e*x)^m*((f + g*x)/(a + c*x^2)), x], x] /; FreeQ[{a, c, d, e, f, g}, x] && NeQ[c*d^2 + a*e^2, 0] && Integer
Q[m]

Rule 833

Int[((d_.) + (e_.)*(x_))^(m_)*((f_.) + (g_.)*(x_))*((a_) + (c_.)*(x_)^2)^(p_.), x_Symbol] :> Simp[(d + e*x)^(m
- 1)*(a + c*x^2)^(p + 1)*((a*(e*f + d*g) - (c*d*f - a*e*g)*x)/(2*a*c*(p + 1))), x] - Dist[1/(2*a*c*(p + 1)),
Int[(d + e*x)^(m - 2)*(a + c*x^2)^(p + 1)*Simp[a*e*(e*f*(m - 1) + d*g*m) - c*d^2*f*(2*p + 3) + e*(a*e*g*m - c*
d*f*(m + 2*p + 2))*x, x], x], x] /; FreeQ[{a, c, d, e, f, g}, x] && NeQ[c*d^2 + a*e^2, 0] && LtQ[p, -1] && GtQ
[m, 1] && (EqQ[d, 0] || (EqQ[m, 2] && EqQ[p, -3] && RationalQ[a, c, d, e, f, g]) ||  !ILtQ[m + 2*p + 3, 0])

Rubi steps

\begin {align*} \int \frac {x^4 (d+e x)}{\left (a^2-c^2 x^2\right )^2} \, dx &=\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}-\frac {\int \frac {x^2 \left (3 a^2 d+4 a^2 e x\right )}{a^2-c^2 x^2} \, dx}{2 a^2 c^2}\\ &=\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}-\frac {\int \left (-\frac {3 a^2 d}{c^2}-\frac {4 a^2 e x}{c^2}+\frac {3 a^4 d+4 a^4 e x}{c^2 \left (a^2-c^2 x^2\right )}\right ) \, dx}{2 a^2 c^2}\\ &=\frac {3 d x}{2 c^4}+\frac {e x^2}{c^4}+\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}-\frac {\int \frac {3 a^4 d+4 a^4 e x}{a^2-c^2 x^2} \, dx}{2 a^2 c^4}\\ &=\frac {3 d x}{2 c^4}+\frac {e x^2}{c^4}+\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}+\frac {(a (3 c d-4 a e)) \int \frac {1}{-a c-c^2 x} \, dx}{4 c^4}-\frac {(a (3 c d+4 a e)) \int \frac {1}{a c-c^2 x} \, dx}{4 c^4}\\ &=\frac {3 d x}{2 c^4}+\frac {e x^2}{c^4}+\frac {x^3 (d+e x)}{2 c^2 \left (a^2-c^2 x^2\right )}+\frac {a (3 c d+4 a e) \log (a-c x)}{4 c^6}-\frac {a (3 c d-4 a e) \log (a+c x)}{4 c^6}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.03, size = 84, normalized size = 0.89 \begin {gather*} \frac {2 c^2 d x+c^2 e x^2+\frac {a^4 e+a^2 c^2 d x}{a^2-c^2 x^2}-3 a c d \tanh ^{-1}\left (\frac {c x}{a}\right )+2 a^2 e \log \left (a^2-c^2 x^2\right )}{2 c^6} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(x^4*(d + e*x))/(a^2 - c^2*x^2)^2,x]

[Out]

(2*c^2*d*x + c^2*e*x^2 + (a^4*e + a^2*c^2*d*x)/(a^2 - c^2*x^2) - 3*a*c*d*ArcTanh[(c*x)/a] + 2*a^2*e*Log[a^2 -
c^2*x^2])/(2*c^6)

________________________________________________________________________________________

Maple [A]
time = 0.55, size = 105, normalized size = 1.12

method	result	size
norman	\(\frac {\frac {a^{4} e}{c^{6}}-\frac {d \,x^{3}}{c^{2}}-\frac {e \,x^{4}}{2 c^{2}}+\frac {3 a^{2} d x}{2 c^{4}}}{-c^{2} x^{2}+a^{2}}+\frac {a \left (4 a e -3 c d \right ) \ln \left (c x +a \right )}{4 c^{6}}+\frac {a \left (4 a e +3 c d \right ) \ln \left (-c x +a \right )}{4 c^{6}}\)	\(97\)
default	\(\frac {\frac {1}{2} e \,x^{2}+d x}{c^{4}}+\frac {a \left (4 a e +3 c d \right ) \ln \left (-c x +a \right )}{4 c^{6}}+\frac {a^{2} \left (a e +c d \right )}{4 c^{6} \left (-c x +a \right )}+\frac {a \left (4 a e -3 c d \right ) \ln \left (c x +a \right )}{4 c^{6}}+\frac {a^{2} \left (a e -c d \right )}{4 c^{6} \left (c x +a \right )}\)	\(105\)
risch	\(\frac {e \,x^{2}}{2 c^{4}}+\frac {d x}{c^{4}}+\frac {\frac {a^{2} d x}{2}+\frac {a^{4} e}{2 c^{2}}}{c^{4} \left (-c^{2} x^{2}+a^{2}\right )}+\frac {a^{2} \ln \left (-c x -a \right ) e}{c^{6}}-\frac {3 a \ln \left (-c x -a \right ) d}{4 c^{5}}+\frac {a^{2} \ln \left (c x -a \right ) e}{c^{6}}+\frac {3 a \ln \left (c x -a \right ) d}{4 c^{5}}\)	\(116\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x^4*(e*x+d)/(-c^2*x^2+a^2)^2,x,method=_RETURNVERBOSE)

[Out]

1/c^4*(1/2*e*x^2+d*x)+1/4*a*(4*a*e+3*c*d)*ln(-c*x+a)/c^6+1/4/c^6*a^2*(a*e+c*d)/(-c*x+a)+1/4/c^6*a*(4*a*e-3*c*d
)*ln(c*x+a)+1/4/c^6*a^2*(a*e-c*d)/(c*x+a)

________________________________________________________________________________________

Maxima [A]
time = 0.29, size = 103, normalized size = 1.10 \begin {gather*} -\frac {a^{2} c^{2} d x + a^{4} e}{2 \, {\left (c^{8} x^{2} - a^{2} c^{6}\right )}} + \frac {x^{2} e + 2 \, d x}{2 \, c^{4}} - \frac {{\left (3 \, a c d - 4 \, a^{2} e\right )} \log \left (c x + a\right )}{4 \, c^{6}} + \frac {{\left (3 \, a c d + 4 \, a^{2} e\right )} \log \left (c x - a\right )}{4 \, c^{6}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^4*(e*x+d)/(-c^2*x^2+a^2)^2,x, algorithm="maxima")

[Out]

-1/2*(a^2*c^2*d*x + a^4*e)/(c^8*x^2 - a^2*c^6) + 1/2*(x^2*e + 2*d*x)/c^4 - 1/4*(3*a*c*d - 4*a^2*e)*log(c*x + a
)/c^6 + 1/4*(3*a*c*d + 4*a^2*e)*log(c*x - a)/c^6

________________________________________________________________________________________

Fricas [A]
time = 5.16, size = 161, normalized size = 1.71 \begin {gather*} \frac {4 \, c^{4} d x^{3} - 6 \, a^{2} c^{2} d x + 2 \, {\left (c^{4} x^{4} - a^{2} c^{2} x^{2} - a^{4}\right )} e - {\left (3 \, a c^{3} d x^{2} - 3 \, a^{3} c d - 4 \, {\left (a^{2} c^{2} x^{2} - a^{4}\right )} e\right )} \log \left (c x + a\right ) + {\left (3 \, a c^{3} d x^{2} - 3 \, a^{3} c d + 4 \, {\left (a^{2} c^{2} x^{2} - a^{4}\right )} e\right )} \log \left (c x - a\right )}{4 \, {\left (c^{8} x^{2} - a^{2} c^{6}\right )}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^4*(e*x+d)/(-c^2*x^2+a^2)^2,x, algorithm="fricas")

[Out]

1/4*(4*c^4*d*x^3 - 6*a^2*c^2*d*x + 2*(c^4*x^4 - a^2*c^2*x^2 - a^4)*e - (3*a*c^3*d*x^2 - 3*a^3*c*d - 4*(a^2*c^2
*x^2 - a^4)*e)*log(c*x + a) + (3*a*c^3*d*x^2 - 3*a^3*c*d + 4*(a^2*c^2*x^2 - a^4)*e)*log(c*x - a))/(c^8*x^2 - a
^2*c^6)

________________________________________________________________________________________

Sympy [A]
time = 0.49, size = 141, normalized size = 1.50 \begin {gather*} \frac {a \left (4 a e - 3 c d\right ) \log {\left (x + \frac {4 a^{2} e - a \left (4 a e - 3 c d\right )}{3 c^{2} d} \right )}}{4 c^{6}} + \frac {a \left (4 a e + 3 c d\right ) \log {\left (x + \frac {4 a^{2} e - a \left (4 a e + 3 c d\right )}{3 c^{2} d} \right )}}{4 c^{6}} + \frac {- a^{4} e - a^{2} c^{2} d x}{- 2 a^{2} c^{6} + 2 c^{8} x^{2}} + \frac {d x}{c^{4}} + \frac {e x^{2}}{2 c^{4}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x**4*(e*x+d)/(-c**2*x**2+a**2)**2,x)

[Out]

a*(4*a*e - 3*c*d)*log(x + (4*a**2*e - a*(4*a*e - 3*c*d))/(3*c**2*d))/(4*c**6) + a*(4*a*e + 3*c*d)*log(x + (4*a
**2*e - a*(4*a*e + 3*c*d))/(3*c**2*d))/(4*c**6) + (-a**4*e - a**2*c**2*d*x)/(-2*a**2*c**6 + 2*c**8*x**2) + d*x
/c**4 + e*x**2/(2*c**4)

________________________________________________________________________________________

Giac [A]
time = 0.81, size = 112, normalized size = 1.19 \begin {gather*} -\frac {{\left (3 \, a c d - 4 \, a^{2} e\right )} \log \left ({\left | c x + a \right |}\right )}{4 \, c^{6}} + \frac {{\left (3 \, a c d + 4 \, a^{2} e\right )} \log \left ({\left | c x - a \right |}\right )}{4 \, c^{6}} + \frac {c^{4} x^{2} e + 2 \, c^{4} d x}{2 \, c^{8}} - \frac {a^{2} c^{2} d x + a^{4} e}{2 \, {\left (c x + a\right )} {\left (c x - a\right )} c^{6}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x^4*(e*x+d)/(-c^2*x^2+a^2)^2,x, algorithm="giac")

[Out]

-1/4*(3*a*c*d - 4*a^2*e)*log(abs(c*x + a))/c^6 + 1/4*(3*a*c*d + 4*a^2*e)*log(abs(c*x - a))/c^6 + 1/2*(c^4*x^2*
e + 2*c^4*d*x)/c^8 - 1/2*(a^2*c^2*d*x + a^4*e)/((c*x + a)*(c*x - a)*c^6)

________________________________________________________________________________________

Mupad [B]
time = 1.09, size = 99, normalized size = 1.05 \begin {gather*} \frac {\frac {a^4\,e}{2\,c^2}+\frac {a^2\,d\,x}{2}}{a^2\,c^4-c^6\,x^2}+\frac {e\,x^2}{2\,c^4}+\frac {\ln \left (a+c\,x\right )\,\left (4\,a^2\,e-3\,a\,c\,d\right )}{4\,c^6}+\frac {\ln \left (a-c\,x\right )\,\left (4\,e\,a^2+3\,c\,d\,a\right )}{4\,c^6}+\frac {d\,x}{c^4} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((x^4*(d + e*x))/(a^2 - c^2*x^2)^2,x)

[Out]

((a^4*e)/(2*c^2) + (a^2*d*x)/2)/(a^2*c^4 - c^6*x^2) + (e*x^2)/(2*c^4) + (log(a + c*x)*(4*a^2*e - 3*a*c*d))/(4*
c^6) + (log(a - c*x)*(4*a^2*e + 3*a*c*d))/(4*c^6) + (d*x)/c^4

________________________________________________________________________________________